home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / CTAILS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-28  |  1.5 KB  |  28 lines
  1. 5  KEY OFF:CLS
  2. 10  COLOR 3,0,8
  3. 15  LOCATE 11,31:COLOR 3:PRINT "_________________"
  4. 20  LOCATE 10,29:COLOR 12:PRINT "` Cocktails for two '"
  5. 21  LOCATE 14,15:COLOR 3:PRINT "Words and music by Arthur Johnston and Sam Coslow"
  6. 22  LOCATE 16,27:PRINT "Program by Greg McCarty"
  7. 30  LOCATE 19,12:PRINT "Dedicated to `Crazy John' Markoe and Mrs. Dan Pettibone."
  8. 50  FOR X=1 TO 10000:NEXT:CLS
  9. 110  PLAY "MNT120O3"
  10. 115  PRINT:PRINT " In some secluded rendezvous....  that over looks the avenue..."
  11. 120  PLAY "L4CL8EG G# BAEL1AL8CEG G# BAEL1G"
  12. 125  CLS:PRINT:PRINT " with someone sharing a delightful chat.. ":PRINT:PRINT " - of this and that... and cocktails for two."
  13. 130  PLAY "L8DFAO4CEDCO3L4AO4CO3BFAO4CO3BGBL8GGL1G"
  14. 135  CLS:PRINT:PRINT " As we enjoy a cigarette...  to some exquisite chansonette...."
  15. 140  PLAY "L8CEG G# BAEL1AL8CEG G# BAEL1G"
  16. 145  CLS:PRINT:PRINT " two hands are sure to slyly meet beneath a servinette..":PRINT:PRINT " - with cocktails for two."
  17. 150  PLAY "L8DFAO4CEDCO3L4AO4CO3BFAO4CO3BGO4DO3L8GGL1G"
  18. 155  CLS:PRINT:PRINT " My head may go reeling...  but my heart will be obedient..."
  19. 160  PLAY "O4L4EEL8EEO1L2EDO4L8D C# EDCO3B O4L4DCL2C"
  20. 165  PRINT:PRINT " - with intoxicating kisses for the principal ingredient."
  21. 170  PLAY "L8CO3BO4DCO3BAO4L4CO3L2BL8BAL4AGG F# AGL2G P4"
  22. 175  CLS:PRINT:PRINT " Most any afternoon at five... ":PRINT:PRINT " we'll be so glad we're both alive..."
  23. 180  PLAY "L8CEG G# BAE L1A L8CEG G# BAE L1G"
  24. 185  CLS:PRINT:PRINT " Then maybe fortune will complete her plan...  that all began...":PRINT :PRINT " - with cocktails for two."
  25. 190  PLAY "L8DFAO4CEDC O3L4AO4CO3BFAO4CO3BGO4E L8CC L1C"
  26. 200  CLS:LOCATE 24,30:INPUT "PLAY AGAIN (Y/N)"; Z$
  27. 210  IF Z$="Y" OR Z$="y" THEN GOTO 5 ELSE CLS :RUN "MENU.BAS"
  28.